home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / passvar.prg < prev    next >
Encoding:
Text File  |  1994-06-18  |  317 b   |  19 lines
  1. CLOSE DATABASES
  2.  
  3. *PRIVATE M.Criteria, M.Index
  4.  
  5. *PROCEDURE PassVar
  6. *PARAMETER M.Saturday, M.Sunday
  7.  
  8. IF mktable = .F.
  9. *    M.Saturday = 'Week5'
  10. *    M.Sunday = 'Week9'
  11.     ERASE Mess.dbf
  12.     CREATE TABLE Mess ;
  13.         (Saturday C(30), Sunday C(30))
  14.     USE Mess
  15.     APPEND BLANK
  16.     GOTO TOP
  17.     GATHER MEMVAR
  18.     mktable = .T.
  19. ENDIF